// .txt

beginzonescript;

variables;

short crime_tolerance = 5;
short last_abil;
short i;

body;

beginstate INIT_STATE;
	sf(20,4,0);
	
	set_name(19,"Rowena");
	set_name(20,"Aranov");

	set_name(21,"Loyalist Scout");
	set_name(22,"Loyalist Scout");
	
	set_name(23,"Maintenance Vlish");
	set_aggression(23,9);
	add_range_to_group(23,27,2);
	change_max_health(1002,40);
	
	set_name(28,"Maintenance Vlish");
	set_aggression(28,9);
	add_range_to_group(28,32,3);
	change_max_health(1003,40);
	
	set_name(33,"Maintenance Vlish");
	set_aggression(33,9);
	add_range_to_group(33,38,4);
	change_max_health(1004,40);
	
	set_name(39,"Maintenance Vlish");
	set_aggression(39,9);
	add_range_to_group(39,43,5);
	change_max_health(1005,40);	
	
	set_name(44,"Maintenance Vlish");
	set_aggression(44,9);
	add_range_to_group(44,49,6);
	change_max_health(1006,40);	

	set_name(52,"Entrancing Vlish");
	set_boss_level(52,2);
	place_particle_num(52,18,12,8);		
	
	if (get_sdf(20,7) > 0) {
		make_zone_hostile();
		}

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	if ((gf(20,4) == 0) && (party_dist_to_nav(1) <= 6))
		sf(20,4,1);
	if ((gf(20,4) == 0) && (party_dist_to_nav(2) <= 6))
		sf(20,4,2);
	if ((gf(20,4) == 0) && (party_dist_to_nav(3) <= 6))
		sf(20,4,3);
		
	// clear zone?
	if ((zone_clear(ME) == FALSE) && (get_flag(20,11) >= 4)) {
		print_str_color("You have killed enough of the vlish. This area can be",2);
		print_str_color("  passed safely.",2);
		clear_zone(ME);	
		}
		
	if ((get_crime_level() >= crime_tolerance) && (get_sdf(20,7) == 0)) {
		make_zone_hostile();
		set_flag(20,7,1);
		}

	 if (gf(20,7) == 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(19,"What a mess!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(19,"Ah! These stains!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(19,"I have little for you.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"I have plenty to sell.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"I can buy things.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"Still need more herbs.");
		}
	
	//if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_group()) && (tick_difference(last_abil,get_current_tick()) > 5))) {
	//	last_abil = get_current_tick();
	//	}
break;

beginstate 10;
	set_terrain_string_range("The sign says - East Pass Post House.",3);
break;

beginstate 11;
	set_terrain_string_range("The common room reeks of dirty soldier.",3);
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
